home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Dev / AmigaTalk / System / GamePort.p < prev    next >
Encoding:
Text File  |  2000-05-03  |  4.1 KB  |  114 lines
  1. pTempVar <- <primitive 110 23 >
  2. <primitive 112 pTempVar 1  " waitForYPos: " \
  3.   #( #[ 16r20 16r80 16r00 16r72 16r22 16r21 16rC9 16rF6 16r08 16r20 16r80 \
  4.         16r00 16rF1 16r72 16rF2 16rF9 16r0D 16rF2 16rF5] \
  5.     #( #getYPos  )) >
  6.  
  7. <primitive 112 pTempVar 2  " waitForXPos: " \
  8.   #( #[ 16r20 16r80 16r00 16r72 16r22 16r21 16rC9 16rF6 16r08 16r20 16r80 \
  9.         16r00 16rF1 16r72 16rF2 16rF9 16r0D 16rF2 16rF5] \
  10.     #( #getXPos  )) >
  11.  
  12. <primitive 112 pTempVar 3  " waitForQualifier: " \
  13.   #( #[ 16r20 16r80 16r00 16r72 16r22 16r21 16rC9 16rF6 16r08 16r20 16r80 \
  14.         16r00 16rF1 16r72 16rF2 16rF9 16r0D 16rF2 16rF5] \
  15.     #( #getQualifiers  )) >
  16.  
  17. <primitive 112 pTempVar 4  " waitForButton: " \
  18.   #( #[ 16r20 16r80 16r00 16r72 16r22 16r21 16rC9 16rF6 16r08 16r20 16r80 \
  19.         16r00 16rF1 16r72 16rF2 16rF9 16r0D 16rF2 16rF5] \
  20.     #( #getButtonCode  )) >
  21.  
  22. <primitive 112 pTempVar 5  " setControllerType: " \
  23.   #( #[ 16r21 16r5A 16rCB 16r21 16r81 16r00 16r53 16rC8 16rF7 16r08 16r58 \
  24.         16r10 16r21 16rFA 16r03 16rDF 16rF8 16r03 16rF2 16r31 16rA8 \
  25.         16rF2 16rF5] \
  26.     #( #& 'newCType parameter out of range (-1 to 3 only)!'  )) >
  27.  
  28. <primitive 112 pTempVar 6  " setYDeltaTransition: " \
  29.   #( #[ 16r55 16r10 16r21 16rFA 16r03 16rDF 16rF2 16rF5] \
  30.     #(  )) >
  31.  
  32. <primitive 112 pTempVar 7  " setXDeltaTransition: " \
  33.   #( #[ 16r54 16r10 16r21 16rFA 16r03 16rDF 16rF2 16rF5] \
  34.     #(  )) >
  35.  
  36. <primitive 112 pTempVar 8  " setTimeTransition: " \
  37.   #( #[ 16r21 16r50 16rC7 16rF7 16r05 16r30 16rA8 16rF2 16r5D 16rF3 16rF2 \
  38.         16r53 16r10 16r21 16rFA 16r03 16rDF 16rF2 16rF5] \
  39.     #( 'timeOutValue out of range (S/B >= 0).'  )) >
  40.  
  41. <primitive 112 pTempVar 9  " setKeyTransition: " \
  42.   #( #[ 16r21 16r51 16rCB 16r21 16r81 16r00 16r53 16rC8 16rF7 16r08 16r52 \
  43.         16r10 16r21 16rFA 16r03 16rDF 16rF8 16r03 16rF2 16r31 16rA8 \
  44.         16rF2 16rF5] \
  45.     #( #& 'transType parameter out of range (1 to 3 only)!'  )) >
  46.  
  47. <primitive 112 pTempVar 10  " getTriggerYDelta " \
  48.   #( #[ 16r05 16r13 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  49.     #(  )) >
  50.  
  51. <primitive 112 pTempVar 11  " getTriggerXDelta " \
  52.   #( #[ 16r05 16r12 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  53.     #(  )) >
  54.  
  55. <primitive 112 pTempVar 12  " getTriggerTime " \
  56.   #( #[ 16r05 16r11 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  57.     #(  )) >
  58.  
  59. <primitive 112 pTempVar 13  " getTriggerKeys " \
  60.   #( #[ 16r05 16r10 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  61.     #(  )) >
  62.  
  63. <primitive 112 pTempVar 14  " getTimeStamp " \
  64.   #( #[ 16r30 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  65.     #( 15  )) >
  66.  
  67. <primitive 112 pTempVar 15  " getIEAddress " \
  68.   #( #[ 16r30 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  69.     #( 14  )) >
  70.  
  71. <primitive 112 pTempVar 16  " getYPos " \
  72.   #( #[ 16r30 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  73.     #( 13  )) >
  74.  
  75. <primitive 112 pTempVar 17  " getXPos " \
  76.   #( #[ 16r30 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  77.     #( 12  )) >
  78.  
  79. <primitive 112 pTempVar 18  " getQualifiers " \
  80.   #( #[ 16r30 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  81.     #( 11  )) >
  82.  
  83. <primitive 112 pTempVar 19  " getButtonCode " \
  84.   #( #[ 16r30 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  85.     #( 10  )) >
  86.  
  87. <primitive 112 pTempVar 20  " getControllerType " \
  88.   #( #[ 16r57 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
  89.     #(  )) >
  90.  
  91. <primitive 112 pTempVar 21  " clearGamePortBuffer " \
  92.   #( #[ 16r56 16r10 16rFA 16r02 16rDF 16rF2 16rF5] \
  93.     #(  )) >
  94.  
  95. <primitive 112 pTempVar 22  " closeGamePort " \
  96.   #( #[ 16r50 16r10 16rFA 16r02 16rDF 16rF2 16rF5] \
  97.     #(  )) >
  98.  
  99. <primitive 112 pTempVar 23  " openGamePort:named: " \
  100.   #( #[ 16r51 16r22 16r21 16rFA 16r03 16rDF 16rF2 16r22 16r60 16r20 16rF3 \
  101.         16rF5] \
  102.     #(  )) >
  103.  
  104. <primitive 98 #GamePort \
  105.   <primitive 97 #GamePort #Device #AmigaTalk:System/GamePort.st \
  106.    #(  #pname ) \
  107.    #( #waitForYPos: #waitForXPos: #waitForQualifier: #waitForButton:  \
  108.        #setControllerType: #setYDeltaTransition: #setXDeltaTransition: #setTimeTransition:  \
  109.        #setKeyTransition: #getTriggerYDelta #getTriggerXDelta #getTriggerTime #getTriggerKeys  \
  110.        #getTimeStamp #getIEAddress #getYPos #getXPos #getQualifiers #getButtonCode  \
  111.        #getControllerType #clearGamePortBuffer #closeGamePort #openGamePort:named:  ) \
  112.   pTempVar 3 6 >>
  113.  
  114.